home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_c / cgraphix / chist.c < prev    next >
Text File  |  1986-05-28  |  772b  |  49 lines
  1. /* «RM120»«PL99999»«TS4,8,12,16,20,24,28,32,36,40,44,48,52,56,60,64,68,72,76» */
  2. #include    <stdio.h>
  3. #define    EXTERN    extern
  4. #include    <typedef.h>
  5.  
  6.  
  7. void HistoDem()
  8. {
  9.     int        i,DisplyLen,HatchDen;
  10.     PlotArray    a;
  11.     double    r;
  12.     int        Hatch;
  13.  
  14.  
  15.     DisplyLen = 10;
  16.  
  17.     for (i = 0; i <= DisplyLen; i++) {
  18.         a[2 * i] = i;
  19.         a[1+2*i] =  (i+1) / 12.;
  20.     }
  21.  
  22.     SetColorWhite();
  23.     SetBackground(0);
  24.     DefineWindow(1,0,0,XMaxGlb,YMaxGlb);
  25.     DefineHeader(1,"A BAR CHART WITH HATCHING");
  26.     DefineWorld(1, -10., 0., 10., 1.0);
  27.     SelectWorld(1);
  28.     SetHeaderOn();
  29.     SelectWindow(1);
  30.  
  31.     DrawBorder();
  32.  
  33.     Hatch = TRUE;
  34.     HatchDen = 7;
  35.  
  36.     DrawHistogram(a,(int)-DisplyLen,(int)Hatch,(int)-HatchDen);
  37.  
  38. }
  39.  
  40.  
  41. main()
  42. {
  43.     InitGraphic();
  44.     HistoDem();
  45.     inkey();
  46.     LeaveGraphic();
  47. }
  48.  
  49.